#!/usr/bin/perl

# Иванов Илья
# 24.11.2013

# ЗАДАНИЕ:
# Создать шаблон для поиска денежной суммы, записываемой в формате "10000 руб. 00 коп."

# РЕШЕНИЕ:
# Выделяет в тексте искомую денежную сумму скобками [].

while ($line = <>) {
	$line =~ s/([1-9]\d*\sруб.\s+\d\d\s+коп.)/[$1]/g;
	print $line;
}
